home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / hts / uflhts.txt < prev   
Encoding:
Text File  |  1995-01-16  |  2.1 KB  |  73 lines
  1. UFLHTS.DLL contains 3 functions our company, Heritage Technology Solutions,
  2. wrote while we were developing some custom reports for a client recently.  
  3. If they are helpful, feel free to use them in your own reports.
  4.  
  5. Functions:
  6.  
  7. fmtph(string):
  8.     Pass this function a string of straight numbers and it will return
  9.     a formatted string with the following attributes:
  10.  
  11.     <10 Characters: (i.e. 310)
  12.         Nothing
  13.     10 Characters:  (i.e. 3103747748)
  14.         (310) 374-7748
  15.     11-15 Charcters: (i.e. 310374774812345)
  16.         (310) 374-7748 Ext-12345
  17.  
  18. fmtZip(string):
  19.     Pass this function a string of straight numbers and it will return
  20.     a formatted string with the following attributes:
  21.  
  22.     <5 Characters: (i.e. 9027)
  23.         Nothing
  24.     >5 Characters: (i.e. 902789876)
  25.         90278-9876
  26.  
  27. bAND(integer,integer)
  28.     Pass this function 2 integers and it will return a boolean value indicating the
  29.     bitwise AND result.  We use this function to check the state of indivdual 
  30.     components which make up the integer value as returned by Sheriden's Checkboxes
  31.     and many other VBX's.
  32.     For Example:  
  33.     
  34.             [X]  Red    [ ]  Red    [X]  Red
  35.             [ ]  Blue    [X]  Blue    [ ]  Blue    
  36.             [ ]  Yellow    [ ]  Yellow    [X]  Yellow
  37.     chkBox.value =     1        2        5
  38.     So to check to see if a particular Box is checked we use the bAND function
  39.     As Follows:  (Keep in mind the first check box has a value of 1, the second 2,
  40.               the third 4, etc...)
  41.     Isred = bAND(chkBox.value,1)
  42.     returns:          True        False        True
  43.  
  44. To use these functions all you have to do is copy the UFLHTS.dll file into
  45. the same directory as your CRW.EXE file.  When you create a new formula you
  46. will automatically see these functions under "Additional Functions" in the functions 
  47. window.
  48.  
  49. About US:
  50. Heritage Technology Solutions provides Visual Basic Application Development for 
  51. clients of all sizes.  If you would like us to help you with a project, or even
  52. write a custom Crystal Report Library like the ones above feel free to contact us.
  53.  
  54. Heritage Technology Solutions
  55. 1210 Goodman Ave
  56. Redondo Beach CA 90277
  57.  
  58. 310-374-7748
  59. 310-372-5808 FAX
  60. E-mail: joelyons@netcom.com
  61.  
  62. Have Fun,
  63. Joe Lyons
  64. President
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.